home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
editron.zip
/
EDITRON.Z
/
FORTRAN.TML
< prev
next >
Wrap
INI File
|
1994-08-22
|
3KB
|
155 lines
[templates]
program=PROGRAM &\n\t\nEND PROGRAM
module=MODULE &\n\t\nEND MODULE
subroutine=SUBROUTINE &\n\t\nEND SUBROUTINE
type=TYPE &\n\t\nEND TYPE
function=FUNCTION &\n\t\nEND FUNCTION
dime&nsion=DIMENSION &
sequ&ence=SEQUENCE &
alloc&atable=ALLOCATABLE &
equiv&alence=EQUIVALENCE &
go=GO TO &
if=IF & THEN\n\t\nEND IF
select=SELECT CASE (&)\n\tCASE \n\n\tCASE\n\nEND SELECT
do=DO &\n\t\nEND DO
abs=ABS(&)
ach&ar=ACHAR(&)
acos=ACOS(&)
adjustl=ADJUSTL(&)
adjustr=ADJUSTR(&)
aim&ag=AIMAG(&)
ain&t=AINT(&)
all=ALL(&)
allocate&d=ALLOCATED(&)
any=ANY(&)
asin=ASIN(&)
assoc&iated=ASSOCIATED(&)
atan=ATAN(&)
atan2=ATAN2(&)
bit_&size=BIT_SIZE(&)
btest=BTEST(&, )
ceil&ing=CEILING(&)
char=CHAR(&)
cmplx=CMPLX(&)
conjg=CONJG(&)
cos=COS(&)
cosh=COSH(&)
count=COUNT(&)
csh&ift=CSHIFT(&, &, )
date_&and_time=DATE_AND_TIME(&)
dble=DBLE(&)
dig&its=DIGITS(&)
dim=DIM(&, )
dot_&product=DOT_PRODUCT(&, )
dprod=DPROD(&, )
eosh&ift=EOSHIFT(&, )
epsil&on=EPSILON(&)
exp=EXP(&)
expo&nent=EXPONENT(&)
flo&or=FLOOR(&)
fract&ion=FRACTION(&)
huge=HUGE(&)
iach&ar=IACHAR(&)
iand=IAND(&, )
ibc&lr=IBCLR(&, )
ibi&ts=IBITS(&, , )
ibs&et=IBSET(&, )
ich&ar=ICHAR(&)
ieo&r=IEOR(&, )
ind&ex=INDEX(&, )
int=INT(&)
ior=IOR(&, )
ishft=ISHFT(&, )
ishftc=ISHFTC(&, )
kind=KIND(&)
lbo&und=LBOUND(&)
len=LEN(&)
len_&trim=LEN_TRIM(&)
lge=LGE(&, )
lgt=LGT(&, )
lle=LLE(&, )
llt=LLT(&, )
log=LOG(&)
logi&cal=LOGICAL(&, )
log1&0=LOG10(&)
matm&ul=MATMUL(&, )
max=MAX(&, )
maxe&xponent=MAXEXPONENT(&)
maxl&oc=MAXLOC(&)
maxv&al=MAXVAL(&)
merge=MERGE(&, , )
min=MIN(&, , )
mine&xponent=MINEXPONENT(&)
minl&oc=MINLOC(&)
minv&al=MINVAL(&, )
mod=MOD(&, )
mvb&its=MVBITS(&, )
neare&st=NEAREST(&, )
nint=NINT(&, )
not=NOT(&)
pack=PACK(&)
preci&sion=PRECISION(&)
pres&ent=present(&)
prod&uct=PRODUCT(&)
rad&ix=RADIX(&)
random_n&umber=RANDOM_NUMBER(&)
random_s&eed=RANDOM_SEED(&)
range=RANGE(&)
real=REAL(&)
repeat=REPEAT(&, )
reshape=RESHAPE(&, )
rrsp&acing=RRSPACING(&)
scale=SCALE(&, )
scan=SCAN(&, )
selected_i&nt_kind=SELECTED_INT_KIND(&)
selected_r&eal_kind=SELECTED_REAL_KIND(&)
set_&exponent=SET_EXPONENT(&, )
shape=SHAPE(&)
sign=SIGN(&, )
sin=sin(&)
sinh=SINH(&)
size=SIZE(&)
spac&ing=SPACING(&)
spr&ead=SPREAD(&, , )
sqr&t=SQRT(&)
sum=SUM(&)
sys&tem_clock=SYSTEM_CLOCK()
tan=TAN(&)
tanh=TANH(&)
tiny=TINY(&)
transf&er=TRANSFER(&, )
transp&ose=TRANSPOSE(&)
trim=TRIM(&)
unb&ound=UNBOUND(&)
unpack=UNPACK(&, , )
ver&ify=VERIFY(&, )
[operational_pairs]
{ \t}
} \b{
PROGRAM \tEND
MODULE \tEND
SUBROUTINE \tEND
TYPE \tEND
FUNCTION \tEND
IF \tEND
SELECT \bEND
DO \bEND
END \bPROGRAM | \bMODULE | \bSUBROUTINE | \bTYPE | \bFUNCTION | \bIF | \bSELECT | \bDO
[matching_pairs]
{ \t}
} \b{
( \t)
) \b(
[ \t]
] \b[